import CHF.Parse.Parser
main = do
 input <- readFile "example.txt"
 print (parseCHF input)
